function [z]=meanabs(x,y)
 e=double(x)-double(y);
 z=mean(abs(e));
